10 TEXT : HOME : VTAB 5: INPUT "PLEASE ENTER YOUR WEIGHT-";A$:A = VAL(A$):B = A *.38:C = A *.91:D = A *.38:E = A *2.54:F = A *1.07:G = A *.167:H = A *.9:I = A *1.15:J = A *.05: IF A < = 0 OR A >9999 THEN 10
20 HOME : VTAB 5: PRINT "MERCURY-"B: PRINT "VENUS-"C: PRINT "EARTH-"A: PRINT "MOON-"G: PRINT "MARS-"D: PRINT "JUPITER-"E: PRINT "SATURN-"F: PRINT "URANUS-"H: PRINT "NEPTUNE-"I: PRINT "PLUTO-"J: PRINT : PRINT "WOULD YOU LIKE TO SEE ANOTHER WEIGHT? ";: GET A$: IF A$ = "Y" THEN 10